Public Class ParametroUsuario

    Private strLogin As String
    Private strSenha As String
    Private strIdUsuario As String
    Private strIdEstimativa As String
    Private strIdEscopo As String

    Public Sub New(ByVal strLogin As String, ByVal strSenha As String, ByVal strIdUsuario As String, _
                        ByVal strIdEstimativa As String, ByVal strIdEscopo As String)
        Me.strLogin = strLogin
        Me.strSenha = strSenha
        Me.strIdEstimativa = strIdEstimativa
        Me.strIdEstimativa = strIdEstimativa
        Me.strIdEscopo = strIdEscopo
    End Sub

    Public Sub setLogin(ByVal Login As String)
        strLogin = Login
    End Sub

    Public Function getLogin() As String
        getLogin = strLogin
    End Function

    Public Sub setSenha(ByVal Senha As String)
        strSenha = Senha
    End Sub

    Public Function getSenha() As String
        getSenha = strSenha
    End Function

    Public Sub setIdUsuario(ByVal IdUsuario As String)
        strIdUsuario = IdUsuario
    End Sub

    Public Function getIdUsuario() As String
        getIdUsuario = strIdUsuario
    End Function

    Public Sub setIdEstimativa(ByVal IdEstimativa As String)
        strIdEstimativa = IdEstimativa
    End Sub

    Public Function getIdEstimativa() As String
        getIdEstimativa = strIdEstimativa
    End Function

    Public Sub setIdEscopo(ByVal IdEscopo As String)
        strIdEscopo = IdEscopo
    End Sub

    Public Function getIdEscopo() As String
        getIdEscopo = strIdEscopo
    End Function
End Class
